home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson2 / Lesson2.dcr / 00143_click New Cust button Cancel.ls < prev    next >
Encoding:
Text File  |  2001-11-19  |  589 b   |  34 lines
  1. property PropTarget, buttonReady
  2. global firstTimeNewCustomer
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #PropTarget, [#default: EMPTY, #format: #string, #comment: "First Time Target:"])
  7.   return description
  8. end
  9.  
  10. on mouseEnter me
  11.   buttonReady = 0
  12. end
  13.  
  14. on mouseLeave me
  15.   buttonReady = 0
  16. end
  17.  
  18. on mouseDown me
  19.   buttonReady = 1
  20. end
  21.  
  22. on mouseUp me
  23.   if buttonReady > 0 then
  24.     if firstTimeNewCustomer = "TRUE" then
  25.       if PropTarget <> EMPTY then
  26.         go(PropTarget)
  27.       end if
  28.     else
  29.       go("Add to List")
  30.     end if
  31.   end if
  32.   buttonReady = 0
  33. end
  34.